Top 10k strings from Projector 1 (1984)(McGraw-Hill Book Company UK).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 "projector1"
2 y(i)=z(b,t*i):
2 y(i)=z(b,i):
2 x(d,i)=x(t,i)*x(t,i):
2 t$(c-b)=a$:
2 oo,m;d$(f);
2 i=i+z(b,n):
2 c=c+(c<on):
2 PLAY THE TAPE
2 GO TO start
2 GGGGGGGGGGGGGGGGGG
2 ;"PROGRAM LOADING":
2 "Year? ";y:
2 "Time Chart";
2
1 zo=qa+oi*a:
1 z(b,t*i-nx-b)=q0*i*i+mx*i+c:
1 z(b,t*i-nx-b)=mx*i+c:
1 z(b,nx+nr):
1 z(b,i)=q0*i*i+mx*i+c:
1 z(b,i)=mx*i+c:
1 yl=z-j*q/qf:
1 yl=mx*(x-k/p)+c:
1 yh=mx*(w+k/p)+c:
1 y$)*((i-b)*e+x):
1 xs=(w+k/p-x)/qd:
1 xl=(yl-c)/mx:
1 x(t,i)=z(b,t*i-b):
1 x(t,i)=z(b,t*i-1
1 w=a(k,l)*a(i,l):
1 v=e+t*(d$(e)=y$):
1 ud+b,ol;ss;
1 u=t+(d$(e)=y$):
1 t,t;"Heading"'" Heading ink"'" Text background"'" Text ink"'" Bullets/Nos./Spaces"'" Delay between points":
1 t,o;"Equation"'''"R
1 t,m;d$(b);o$(
1 t$>(q4-e)*(d$(b)=y$)+(q4-d)*(d$(b)
1 t$=e$(i+b)(d
1 t$=e$(b)(t
1 spr=f(nt,b):
1 sp=b+g*(n-b):
1 sp=b+d*(fm-no*
1 sp+f)=h$+v$:
1 scrs
1 s=a(i,k)*a(k,k):
1 s=(c$(b,n)=y$):
1 rr=(v(b)*v(b))/n:
1 resentationJ
1 r,m;d$(oi);
1 r$=e$(i+b)(b):
1 ql*(pau-b)
1 qd,ud;"(";u-b;",";l;")";
1 q0=g(b,b):
1 q,m;d$(h);
1 q)+m*((a=p)+(a=q))*(l
1 projector1
1 projector ^
1 pr
1 pd=spr+lpr
1 pau=f(nt,e):
1 p3=g(b,p2):
1 p1-p3,p2-p4:
1 p1-p3,p2-p4
1 p,m;d$(g);
1 p,h;p$+l$''
1 p,h;"PIE CHART";l$''
1 p,h;"IMAGE";l$''
1 p,h;"GRAPH";l$;''
1 p,f;s$+l$''
1 os,m;d$(oo):
1 os+j,ol;c(j)/b(j):
1 orizontalP
1 oo,ol;c(b)/(ss*
1 ol;"actual / y":
1 ol-(zo+n*g(b,e)*g(b,d))/oi,b;:
1 ol,ol;(i/(u-b))/((b-i)/l)
1 ol,d;"Average = ";g(b,f)
1 oi,m;d$(e);
1 oi+j,ol;b(j):
1 o;"Modify y/n?":
1 o5+n,zo+z(b,n)*g(b,d):
1 o,qa-(b+c-c1)/t;t$(c1
1 o,qa-(b+c-c1)/t;:
1 o,f;"budget / x";
1 o,(g(b,t)-g(b,b))*g(b,d):
1 nr=f(nt,f):
1 np=np-(np>b):
1 np=f(nt,d):
1 n,t+(n<p);n:
1 n+b,r;c$(b,n):
1 n+b,b;z(b,n);
1 mx=g(b,t):
1 m-zo/oi,cp-(cp=on);:
1 lpr=f(nt,t):
1 logo2
1 lo=lo+c(k)*x(k,j):
1 l=of*(l>of)+l*(l
1 l=l+(l<r)*(a=p)-(l>f)*(a=q)
1 l=l+(l<h):
1 l=l+(a=p)*(l=e)-(a=q)*(l=f):
1 l=l+(a=p)*(l<h)-(a=q)*(l>t):
1 l=l+(a=p)*(l<g)-(a=q)*(l>e):
1 l=l+(a=p)*((l<oo)+t*(l=oo))-(a=q)*((l>f)+(l=q)):
1 l=l+(a=os)+(a=p)*(l<g)-(a=q)*(l>f):
1 l=(a=p)*(l+(l<ud))+(a=q)*(l-(l>e))+(a=oi)*qa+(a=oo)*e
1 l<oo)-(a=q
1 l1,m;g(b,t)
1 l1,m;g(b,b)
1 l1,m;d$(n);o$(
1 l1,m;d$(l-e);o$(
1 k,m;d$(k-b);o$(
1 j=j+v(i)*c(i):
1 i=(dt=b)*(ok+t)+(dt
1 i=((xl-x)/k)*qe:
1 i,qb+oi*p5:
1 i+f,p8+(oz-b)*
1 i+d,p8+(oz-b)*
1 i+b,ui-e+oi*p4:
1 i+(oz-b)*p7:
1 i+(oz-b)*p6:
1 i(n);z(b,n):
1 h;"Move the cursor then y /
1 h;"Have you saved?";
1 h;"Add text/ < change options/ STOP":
1 h;" Move the cursor and ENTER ":
1 h,zo+g(b,e)*g(b,d)*n:
1 h,zo+g(b,b)*g(b,d):
1 h,m;d$(d);
1 h+i,m;d$(i):
1 g,ol;b-((n-b)/l)*(b-i):
1 g,m;g(b,b);
1 g,m;d$(t);
1 g,m;d$(f);o$(
1 g)+oi*(a=q)*(l=f):
1 g(b,t)=vx:
1 g(b,t)=mx:
1 g(b,nx+b):
1 g(b,n+b)=g(b,n)+ff*z(b,n):
1 g(b,f)=i/nx:
1 g(b,e)=ow/g(b,d):
1 g(b,e)=mu*p^po:
1 g(b,d)=r*r/(g(b,t)-g(b,b)):
1 g(b,b+nx):
1 g(b,b)=vn:
1 f,t;"Title"'" Vertical axis"'" H"+u$+" axis"'" Join up points"'" Background grid"'" Fit line"'" Fit curve"'" Display statistics":
1 f,t;"Paper"'" Border"'" Ink"'" Text paper"'" Text ink"'" Title":
1 f,t;"Max positive "'" Max negative"'" Freq h"+u$'" First h"+u$'" Print average"'" Col positive bars"'" Col negative bars"'" Paper"'" Border"'" Title"'" ";t$;
1 f,t;"How many periods"'" Line or curve";
1 f,m;g(b,t);
1 f,m;d$(b);
1 f+(i>nxo);i:
1 f(nt,t)=lpr:
1 f(nt,f)=nr:
1 f(nt,e)=pau:
1 f(nt,d)=np:
1 f(nt,b)=spr:
1 f$=f$+w$+g$:
1 f$=f$+g$+w$:
1 f$="SunMonTueWedThuFriSat"
1 f$="Q1 Q2 Q3 Q4 ":
1 f$="JanFebMarAprMayJunJulAugSepOctNovDec":
1 f$=" Q1 Q2 Q3 Q4":
1 e2=e2+e(j)*e(j):
1 e,t;"Ordinary"'" Monthly"'" Quarterly"'" Yearly"'" Daily"'" Pairs":
1 e,t;"New data"'" Modify/View data"'" Histogram"'" Pie chart"'" Graph"'" Key points"'" Project"'" Graphic image"'" Build/modify p";i$'" Play p";i$'" Save data"'" Load data"'" Directory"'" Stop":
1 e,t;"Build new"'" Modify existing":
1 e(j)=y(j)-lo:
1 e$(i+b)=e$(i+b)(
1 e$(i+b)=d$(f)+d$(e)+t$:
1 e$(i+b)="":
1 e$(i+b)(t):
1 e$(b,g*nx):
1 e$(b)=d$(t)+t$:
1 data D
1 d,o;"Y=";q0;"X
1 d,o;"Y=";mx;" X + ";g(b,d)
1 d)+wn*(dt=d):
1 d(spr+lpr+d)
1 d(spr+lpr+b):
1 d(Dsp)-oi;" characters":
1 d(Dsp)-Dsp:
1 d$="y162b00n":
1 d$="nnynn":
1 d$="nnynn"
1 d$="nnnyn":
1 d$="77270":
1 d$="5 5 n1277":
1 d$=" ":
1 d$(e);e$(b)
1 cc=cc+y(i)*y(i):
1 cc=cc+a(l,u+k)*v(l):
1 c>o))+(a=oo)*(c<on):
1 c=c-(a=oi)*((l<p
1 c=c+(l=h)*(c<ue):
1 c=c+(c=m):
1 c=c+(c<q1):
1 c=c+(c<oy)*(l
1 c=c+(a=oo)*(l<oi)*(c<oy)-(a=oi)*((l=f)*(c>oi)+(l=g)*(c>m)+(l=h)*(c>m))
1 c=c+(a=oo)*(c<ue)-(a=oi)*(c>m):
1 c(n);z(b,n):
1 c$(b,i)=x$:
1 bb=bb+x(j,l)*y(l):
1 b;"STATISTICS":
1 b;"SEPARATE SLICE?":
1 b;"PROJECTOR 1":
1 b;"Invalid":
1 b;"DATA TYPE":
1 b;"Can't fit":
1 b1=(3500000
1 b,o;"Point no. / h heading /
1 b+k,m;d$(k):
1 b)*(q8-b):
1 b(n);z(b,n):
1 b(n)-e;f$(s
1 b(j)=c(j)/(ss*
1 b(j)=b(j)+(b(j)
1 aa=g(b,n+b)-g(b,n):
1 a=os)-((a=q)
1 a=g(b,n)+aa/t:
1 a=g(b,n)+(g(b,n+b)-g(b,n))/t:
1 a=a+x(i,k)*x(j,k):
1 a=-g(b,b)*g(b,d)/oi:
1 a(k,j)=a(k,j)/z:
1 a(j,u+j)):
1 a(i,u+i)=b:
1 a(i,j)=a(i,j)-s*a(k,j):
1 a(b,u+b)):
1 a$="PROJECT"+j$:
1 a$="PRESENTATION"+j$:
1 a$="PIE CHART"+j$:
1 a$="GRAPH"+j$:
1 a$="DIRECTORY"+j$:
1 USING YOUR OWN COPY SOFTWARE
1 STOP THE TAPE
1 Rename or Overwrite? (r/o)
1 Printer software and loader
1 Presentation name
1 PRESENTATION OPTIONS
1 PLEASE WAIT
1 Number of runs
1 Not understood. Please revise
1 NOT ENOUGH SPACE
1 Move the cursor to change / STOP
1 KEY POINTS
1 Hst-t,b+s*(b-
1 HISTOGRAMS
1 GGGGGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGG@@@@@@@@@@@@@@@@@@@GGGGGGGGGGGGGGGGGGGGGGGGGG@@@@@@
1 GGGGGGGGGGG
1 Delay in seconds
1 Data nameL
1 DATA NOW LOADING
1 DATA NOT IN MEMORY
1 Auto/manual
1 Already exists
1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 @@@@@@@@@@@
1 > ins, < del, ENTER repeat, STOP
1 ;"WARNING"
1 ;"STOP THE TAPE"
1 ;"Restart with
1 ;"Press ENTER to go on";
1 ;"Press ENTER to go on"
1 ;"IMPORTANT NOTICE"
1 ;"ILLEGAL BAUD RATE - value must be between 50 and 19200 baud. Check your printer manual for the required rate.":
1 ;"CALL ADDRESS OUT OF RANGE":
1 ;" the last 300 characters of the data area must not be used."
1 80000000000
1 5
1 4
1 3
1 2
1 1
1 0@PDDLXPtX
1 000000000000
1 +";mx;"X+";g(b,d)
1 )=q*(n>ol)+q*(n>qk):
1 )=n-ol*(n>ol):
1 )=f+qa*(n>ol):
1 )=(d$(b)=y$)*(i*e+x)+(d$(b)
1 (z+t*j/d+qz);
1 (z+j/d+qz);
1 (x+t*k/d+qz);
1 (x+k/d+qz);
1 (spr+lpr)-ql:
1 (qz+qi*(n/qi-
1 (oh*y/(y-l)),y
1 (o5+n)-zo):
1 (j)+". "+t$:
1 (i+m)*(i>o),r:
1 (i+f),g(b,n)-g(b,n+b):
1 (g(b,t)/g(b,e)):
1 (g(b,e)*n):
1 (c(t)*uf+qz)/uf:
1 (c(d)*uf+qz)/uf:
1 (c(b)*uf+qz)/uf:
1 (Stz+g*(dt-b)):
1 (-g(b,b)/g(b,e)):
1 ((oh+g)/nx):
1 ((nx-n1)/n2)+b:
1 ((nx+qz/f)/t)*(dt=e)+nx*(dt
1 ((n-b)/t):
1 ((n-b)/ol)):
1 ((h+bw*(n1+n*n2-qz))/oi):
1 ((fm-b)/no)-b):
1 (((yl-z)/j)*qf):
1 (((yh-z)/j)*qf):
1 (((y(k)-z)/j)*qf+qd):
1 (((y(i)-z)/j)*-ud+qc):
1 (((x(t,i)-x)/k)*qe+qd):
1 (((x(t,i)-x)/k)*q2+
1 (((q0*x*x+mx*x+c-z)/j)*qf+qd):
1 (((q0*i*i+mx*i+c-z)/j)*qf+qd):
1 (((i-x)/k)*qe+qd):
1 ("Point ";i;":");
1 '''''''''''"Press 'y' to stop this program to load your software, or ENTER to return to the menu."
1 '''''''"Program restarted - press 'm' for the menu, or ENTER to load the rest of PROJECTOR 1."
1 ''''''"Press ENTER to go on."
1 '''"You must now enter the correct baud rate to suit your printer. Type in the number, and press ENTER"
1 '''"You have selected ";b$
1 '''"If you wish to use your own print driver software, you input it at this stage. The driver software must occupy not more than 256 bytes of high memory."
1 '''"If you neglect this, the printersoftware may be overwritten by data and cause the program to lock when you try to use the printer."
1 '''"Baud rate set at ";b:
1 '''" View"'" Delete items"'" Delete all"''''" Free space = ";oj^t-
1 ''"You have selected the ZX printeror the Alphacom 32 printer. Press ENTER to go on, or 'm' to return to the menu to change your selection."
1 ''"No printer required - press ENTER to confirm, or press 'm' to return to the menu to change your selection."
1 ''"In order to leave the maximum amount of space for data storagePROJECTOR 1 uses the top of the data storage area for the printer software. If you are notusing the printer software then the whole of the data area is free. But as you have engaged the printer software,";
1 ''"Enter the address from which the COPY software is called (in decimal):"
1 ''"Call address ";b
1 '"press 'm' to return to the menu to change your selection."
1 '"Use the
1 '"The high-resolution copy software is intended for use with the Epson MX100 series printers or those using a similar system for making graphics copies."
1 '"Print software occupying the printer buffer must not be used,as this area is used by PROJECTOR 1 for data storage."
1 '"Press ENTER to go on"
1 '"PROJECTOR 1 can be used with anyof several popular printer interfaces. This first part of the program allows you to selectsuitable software."
1 '"Other types of printer may need different software not present in this program. In thiscase you can load your own copy software - which must be suitable for your port - into high memory."
1 '"Load your software using LOAD """" CODE and then restart this program with
1 '"It is vital that this interface is connected to the computer. Ifit is not, PROJECTOR 1 may lock while running and cause the lossof your data. If the interface is connected, press ENTER, if NOT, then disconnect the power from the computer, connect the interface, and start again."
1 #b;"Set tape to play":
1 #b;"Rewind tape & play to VERIFY ":
1 #b;"Print? (y/n)":
1 #b;"Play tape to load
1 #b;"Only space for ";nr:
1 #b;"No space":
1 #b;"Invalid for pairs":
1 #b;"Already exists":
1 "the ZX or Alphacom 32 printer."
1 "the Tasman interface."
1 "the Kempston Einterface."
1 "the Kempston interface."
1 "the Hilderbay interface."
1 "exact fit":
1 "Which p"+i$+"? ";
1 "Week?(1-52) ";y:
1 "Select the option you require bypressing the relevant number:"
1 "Save new data? ";
1 "Rename or Overwrite? (r/o) ";
1 "Quarterly";
1 "Presentation";
1 "Pie Chart";
1 "Ordinary";
1 "Monthly";
1 "Key Points";
1 "Interface 1."
1 "Histogram";
1 "Heading:";
1 "From"+q$;
1 "First quarter?(1-4) ";fm:
1 "First month?(1-12) ";fm:
1 "First day?(1-7) ";fm:
1 "First Year? ";y:
1 "Filename? ";
1 "Breakable? ";
1 "Bar Graph";
1 "''"t statistics"'" constant"'" x"'" x
1 "''"Std err of regression"''"F statistic with"'" degrees of freedom":
1 "''"Standard errors"'" constant"'" x"'" x
1 "'"Corrected R
1 " SELECTION OF PRINTER INTERFACE"
1 option to makeoccasional checks on free memoryand stop entering data when free memory gets down to 300."
1 microdrive or tape?
1 REFERENCE
1 1984 McGraw-Hill Book Company (UK) Limited.
1 ZX printer or Alphacom 32"''"
1 Tasman"''"
1 Sinclair Interface 1"''"
1 Other print software
1 NO PRINTER"''"
1 Kempston port"''"
1 Kempston E"''"
1 Hilderbay"''"
1 Press any key to continue
1